home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / May MacUser Program.cpt / miniGenApp Src / Shell.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-29  |  7.1 KB  |  307 lines  |  [TEXT/KAHL]
  1. /* *****************************************************************************
  2.     FILE:             Shell.c
  3.     
  4.     DESCRIPTION:     Main event loop and event handling utilities
  5.  
  6.     AUTHOR:            Kurt W.G. Matthies
  7.         
  8.     Copyright © 1990 by Code of the West, Inc. All Rights Reserved.
  9.     
  10.     Revision History:
  11.     ==========================================================
  12.     3.30.90    -    May 1990 MacUser Release
  13.     ==========================================================
  14.  
  15.    ***************************************************************************** */
  16. #define _Main_Module_
  17.  
  18. #include "AppGlobals.h"
  19.  
  20. #ifdef V2
  21. #include <ControlMgr.h>
  22. #include <DialogMgr.h>
  23. #include <EventMgr.h>
  24. #endif
  25.  
  26. #include "AppInitPr.h"
  27. #include "DisplayPr.h"
  28. #include "DocUtilPr.h"
  29. #include "MenuUtilPr.h"
  30.  
  31. #include "ShellPr.h"
  32.     
  33.     
  34. /* --------------------  Local Prototypes --------------------------------- */
  35.                         main                    ( void );
  36. void                    doKeyDown                 ( EventRecord *e );
  37. void                    doMouseDown             ( EventRecord *e );
  38. void                    doActEvent                ( EventRecord *e );
  39. void                    doUpdateEvent            ( EventRecord *e );
  40. void                    doSuspendResume            ( EventRecord *e );
  41. void                    doInContent             ( WindowPtr, EventRecord *e );
  42. /* -------------------------------------------------------------------------
  43.     main -    program entry point
  44. ---------------------------------------------------------------------------- */
  45. main ()
  46. {
  47.     EventRecord      event;
  48.     short             dItem;
  49.     DialogPtr        dialogPtr;
  50.     Boolean            result;
  51.     long            waitTicks;
  52.  
  53.     initApplication ();
  54.     
  55.     openAppDocs ();
  56.  
  57.     FlushEvents (everyEvent, 0);    /* dump all pending events */
  58.     
  59.     waitTicks = 20;        /* the Multifinder share time value */
  60.     
  61.     while (true)    /* main event loop */
  62.     {    
  63.         if (gHasWNE)
  64.             result = WaitNextEvent (everyEvent, &event, waitTicks, 0L);
  65.         else
  66.         {
  67.             SystemTask ();
  68.             result = GetNextEvent (everyEvent, &event);
  69.         }
  70.         
  71.         if (result)        /* if there is an event */
  72.         {
  73.             fixMenus ();            /* hilite/unhilite appropriate menu items */
  74.             
  75.             switch (event.what) 
  76.             {
  77.                 case mouseDown:    
  78.                     doMouseDown (&event);
  79.                     break;
  80.             
  81.                 case keyDown:
  82.                     doKeyDown (&event);
  83.                     break;
  84.             
  85.                 case activateEvt:    
  86.                     doActEvent (&event);
  87.                     break;
  88.     
  89.                 case updateEvt:
  90.                     doUpdateEvent (&event);
  91.                     break;
  92.                     
  93.                 case app4Evt:
  94.                     doSuspendResume (&event);
  95.                     break;
  96.                     
  97.                 default:        /* 
  98.                                     you may want to put some test code here
  99.                                     to see what kind of events an application
  100.                                     can receive
  101.                                 */
  102.                     break;
  103.                     
  104.             }
  105.         }
  106.     }    /* main event loop */
  107. } 
  108.  
  109. /*--------------------------------------------------------------------------
  110.     doKeyDown -     react to a key down event
  111.     3.30.90kwgm
  112. ---------------------------------------------------------------------------*/
  113. static void 
  114. doKeyDown (e)
  115.     EventRecord     *e;
  116. {
  117.     char             c;
  118.     
  119.     c = e->message & charCodeMask;        /* get character from event record */
  120.     
  121.     if (e->modifiers & cmdKey)
  122.     {
  123.         doMenu (MenuKey (c));        /* do menu commands */
  124.         HiliteMenu (0);
  125.     }
  126. }
  127.  
  128. /*------------------------------------------------------------------------------
  129.     doMouseDown -  react to a mouse down event
  130.     3.30.90kwgm
  131. --------------------------------------------------------------------------------*/
  132. static void 
  133. doMouseDown (e)
  134.     EventRecord     *e;
  135. {
  136.     WindowPtr         theWindow;
  137.     short              where;
  138.  
  139.     where = FindWindow (e->where, &theWindow);
  140.     
  141.     switch (where) 
  142.     {    
  143.         case inDesk:        /* not interested */
  144.             break;
  145.         
  146.         case inMenuBar:
  147.             doMenu (MenuSelect (e->where));
  148.             break;
  149.         
  150.         case inSysWindow:
  151.             SystemClick (e, theWindow);
  152.             break;
  153.     
  154.         case inContent:
  155.             if (theWindow != FrontWindow() || !((WindowPeek)theWindow)->hilited)
  156.                 SelectWindow (theWindow);
  157.             else
  158.                 doInContent (theWindow, e);
  159.             break;
  160.     
  161.         case inGoAway:
  162.             if (TrackGoAway (theWindow, e->where))
  163.                 doCloseDoc (theWindow);
  164.             break;
  165.     }
  166.  
  167. } /* doMouseDown */
  168.  
  169.  
  170. /*-----------------------------------------------------------------------------
  171.     doActEvent -    react to an activate event
  172.     3.30.90kwgm
  173. ------------------------------------------------------------------------------*/
  174. static void 
  175. doActEvent (e)
  176.     EventRecord     *e;
  177. {
  178.     WindowPtr         theWindow;          /* the active window */
  179.     ControlHandle    controlList;
  180.     Rect            scrollbarRect;
  181.  
  182.     theWindow = (WindowPtr) e->message;
  183.     SetPort (theWindow);
  184.     
  185.     controlList =  ((WindowPeek)theWindow)->controlList;
  186.     
  187.     HidePen();
  188.     if (e->modifiers & activeFlag)
  189.     {
  190.         /* activate the controls of the newly activated window */
  191.         while (controlList)
  192.         {
  193.             ShowControl (controlList);
  194.             controlList = (*controlList)->nextControl;
  195.         }
  196.     }
  197.     else
  198.     {
  199.         /* deactivate the controls of the newly deactivated window */
  200.         while (controlList)
  201.         {
  202.             HideControl (controlList);
  203.             controlList = (*controlList)->nextControl;
  204.         }
  205.     }
  206.     ShowPen();
  207.  
  208. } /* doActEvent */
  209.  
  210. /* ----------------------------------------------------------------------------
  211.     doUpdateEvent -        react to the update event
  212.     3.30.90kwgm
  213. -------------------------------------------------------------------------------*/
  214. static void 
  215. doUpdateEvent (e)
  216.     EventRecord        *e;
  217. {
  218.     WindowPtr        theWindow;
  219.     GrafPtr            savePort;
  220.     
  221.     theWindow = (WindowPtr) e->message;
  222.  
  223.     if (((WindowPeek) theWindow)->windowKind  >= 1)        /* is my window?  */
  224.     {
  225.         GetPort (&savePort);
  226.         SetPort (theWindow);
  227.         BeginUpdate (theWindow);
  228.         
  229.         EraseRgn ((WindowPeek)theWindow->visRgn);
  230.         
  231.         drawDocContents (theWindow);
  232.         
  233.         EndUpdate (theWindow);
  234.         SetPort (savePort);
  235.     }
  236.     
  237. } /* doUpdateEvent */
  238.  
  239. /* ------------------------------------------------------------------------------
  240.     doInContent -    called from doMouseDown, respond to mouse down in window
  241.     3.30.90kwgm 
  242. --------------------------------------------------------------------------------- */
  243. static void 
  244. doInContent (theWindow, eventPtr)
  245.     WindowPtr                theWindow;
  246.     EventRecord                *eventPtr;
  247. {
  248.     short                    part;
  249.     ControlHandle            theControl;
  250.     Point                    where;
  251.     
  252.     SetPort (theWindow);
  253.     
  254.     where = eventPtr->where;
  255.     
  256.     GlobalToLocal (&where);
  257.         
  258.     /* this is the start of something, but there's nothing to do here this month */
  259.     
  260. }    /* doInContent */
  261.  
  262. /* -----------------------------------------------------------------------------------
  263.     doSuspendResume -    do necessary things on multifinder switch
  264.     3.30.90kwgm
  265. -------------------------------------------------------------------------------------- */
  266. static void 
  267. doSuspendResume (e)
  268.     EventRecord        *e;
  269. {
  270.     Boolean            activate;
  271.     WindowPtr        topWindow;
  272.     
  273.     /* Suspend == false, Resume == true */
  274.     activate = (e->message & 1) ? true : false;
  275.     
  276.     /* if active window, activate/deactivate */
  277.     topWindow = FrontWindow ();
  278.     
  279.     if ((((WindowPeek) topWindow)->windowKind == userKind)) 
  280.     {
  281.         if (activate)
  282.             SelectWindow (topWindow);
  283.         else
  284.             HiliteWindow (topWindow, false);
  285.     }
  286.  
  287. } /* doSuspendResume */
  288.  
  289. /*------------------------------------------------------------------------------
  290.     cleanExit -     do the assorted things which must be done on exit
  291.     3.30.90kwgm
  292. -------------------------------------------------------------------------------- */
  293. void 
  294. cleanExit (normal)
  295.     Boolean        normal;
  296. {
  297.     WindowPeek        theWindow;
  298.     
  299.     if (theWindow = FrontWindow ())
  300.         if (theWindow->windowKind > 1)
  301.             doCloseDoc (theWindow);
  302.             
  303.     ExitToShell ();
  304. }
  305. /* ===============================  EOF  =======================================
  306.     Copyright © 1990 by Code of the West, Inc. All Rights Reserved.
  307. ================================================================================ */